/ Revista CD Expert 31 / CD Expert nº 31 Jogo Unreal.iso / System / IpDrv.u / AmtSent_TextBuffer236.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 72 1b 2f 2f 3d 3d 3d 3d |........|r.//====|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 2f 2f 20 43 6c |========|=..// Cl|
|00000060| 69 65 6e 74 42 65 61 63 | 6f 6e 52 65 63 65 69 76 |ientBeac|onReceiv|
|00000070| 65 72 3a 20 52 65 63 65 | 69 76 65 73 20 4c 41 4e |er: Rece|ives LAN|
|00000080| 20 62 65 61 63 6f 6e 73 | 20 66 72 6f 6d 20 73 65 | beacons| from se|
|00000090| 72 76 65 72 73 2e 0d 0a | 2f 2f 3d 3d 3d 3d 3d 3d |rvers...|//======|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000e0| 3d 3d 3d 3d 3d 3d 3d 0d | 0a 63 6c 61 73 73 20 43 |=======.|.class C|
|000000f0| 6c 69 65 6e 74 42 65 61 | 63 6f 6e 52 65 63 65 69 |lientBea|conRecei|
|00000100| 76 65 72 20 65 78 70 61 | 6e 64 73 20 55 64 70 42 |ver expa|nds UdpB|
|00000110| 65 61 63 6f 6e 0d 0a 09 | 74 72 61 6e 73 69 65 6e |eacon...|transien|
|00000120| 74 3b 0d 0a 0d 0a 76 61 | 72 20 73 74 72 75 63 74 |t;....va|r struct|
|00000130| 20 42 65 61 63 6f 6e 49 | 6e 66 6f 0d 0a 7b 0d 0a | BeaconI|nfo..{..|
|00000140| 09 76 61 72 20 49 70 41 | 64 64 72 20 20 20 20 20 |.var IpA|ddr     |
|00000150| 20 41 64 64 72 3b 0d 0a | 09 76 61 72 20 66 6c 6f | Addr;..|.var flo|
|00000160| 61 74 20 20 20 20 20 20 | 20 54 69 6d 65 3b 0d 0a |at      | Time;..|
|00000170| 09 76 61 72 20 73 74 72 | 69 6e 67 5b 32 34 30 5d |.var str|ing[240]|
|00000180| 20 54 65 78 74 3b 0d 0a | 7d 20 42 65 61 63 6f 6e | Text;..|} Beacon|
|00000190| 73 5b 33 32 5d 3b 0d 0a | 0d 0a 66 75 6e 63 74 69 |s[32];..|..functi|
|000001a0| 6f 6e 20 73 74 72 69 6e | 67 5b 32 34 30 5d 20 47 |on strin|g[240] G|
|000001b0| 65 74 42 65 61 63 6f 6e | 41 64 64 72 65 73 73 28 |etBeacon|Address(|
|000001c0| 69 6e 74 20 69 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 |int i)..|{...loca|
|000001d0| 6c 20 69 6e 74 20 73 3b | 0d 0a 0d 0a 09 73 20 3d |l int s;|.....s =|
|000001e0| 20 49 6e 53 74 72 28 42 | 65 61 63 6f 6e 73 5b 69 | InStr(B|eacons[i|
|000001f0| 5d 2e 54 65 78 74 2c 20 | 22 20 22 29 3b 0d 0a 09 |].Text, |" ");...|
|00000200| 72 65 74 75 72 6e 20 4c | 65 66 74 28 42 65 61 63 |return L|eft(Beac|
|00000210| 6f 6e 73 5b 69 5d 2e 54 | 65 78 74 2c 20 73 29 3b |ons[i].T|ext, s);|
|00000220| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000230| 53 74 72 69 6e 67 5b 32 | 34 30 5d 20 47 65 74 42 |String[2|40] GetB|
|00000240| 65 61 63 6f 6e 54 65 78 | 74 28 69 6e 74 20 69 29 |eaconTex|t(int i)|
|00000250| 0d 0a 7b 0d 0a 09 6c 6f | 63 61 6c 20 69 6e 74 20 |..{...lo|cal int |
|00000260| 73 3b 0d 0a 09 73 20 3d | 20 49 6e 53 74 72 28 42 |s;...s =| InStr(B|
|00000270| 65 61 63 6f 6e 73 5b 69 | 5d 2e 54 65 78 74 2c 20 |eacons[i|].Text, |
|00000280| 22 20 22 29 3b 0d 0a 09 | 72 65 74 75 72 6e 20 52 |" ");...|return R|
|00000290| 69 67 68 74 28 42 65 61 | 63 6f 6e 73 5b 69 5d 2e |ight(Bea|cons[i].|
|000002a0| 54 65 78 74 2c 20 4c 65 | 6e 28 42 65 61 63 6f 6e |Text, Le|n(Beacon|
|000002b0| 73 5b 69 5d 2e 54 65 78 | 74 29 20 2d 20 73 29 3b |s[i].Tex|t) - s);|
|000002c0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|000002d0| 42 65 67 69 6e 50 6c 61 | 79 28 29 0d 0a 7b 0d 0a |BeginPla|y()..{..|
|000002e0| 09 69 66 28 20 42 69 6e | 64 50 6f 72 74 28 20 42 |.if( Bin|dPort( B|
|000002f0| 65 61 63 6f 6e 50 6f 72 | 74 20 29 20 29 0d 0a 09 |eaconPor|t ) )...|
|00000300| 7b 0d 0a 09 09 53 65 74 | 54 69 6d 65 72 28 20 42 |{....Set|Timer( B|
|00000310| 65 61 63 6f 6e 54 69 6d | 65 2c 20 74 72 75 65 20 |eaconTim|e, true |
|00000320| 29 3b 0d 0a 09 09 6c 6f | 67 28 20 22 43 6c 69 65 |);....lo|g( "Clie|
|00000330| 6e 74 42 65 61 63 6f 6e | 52 65 63 65 69 76 65 72 |ntBeacon|Receiver|
|00000340| 20 62 65 67 69 6e 22 20 | 29 3b 0d 0a 09 7d 0d 0a | begin" |);...}..|
|00000350| 09 65 6c 73 65 0d 0a 09 | 7b 0d 0a 09 09 6c 6f 67 |.else...|{....log|
|00000360| 28 20 22 43 6c 69 65 6e | 74 42 65 61 63 6f 6e 52 |( "Clien|tBeaconR|
|00000370| 65 63 65 69 76 65 72 20 | 66 61 69 6c 65 64 3b 20 |eceiver |failed; |
|00000380| 62 65 61 63 6f 6e 20 70 | 6f 72 74 20 69 6e 20 75 |beacon p|ort in u|
|00000390| 73 65 22 20 29 3b 0d 0a | 09 7d 0d 0a 7d 0d 0a 66 |se" );..|.}..}..f|
|000003a0| 75 6e 63 74 69 6f 6e 20 | 44 65 73 74 72 6f 79 65 |unction |Destroye|
|000003b0| 64 28 29 0d 0a 7b 0d 0a | 09 6c 6f 67 28 20 22 43 |d()..{..|.log( "C|
|000003c0| 6c 69 65 6e 74 42 65 61 | 63 6f 6e 52 65 63 65 69 |lientBea|conRecei|
|000003d0| 76 65 72 20 65 6e 64 22 | 20 29 3b 0d 0a 7d 0d 0a |ver end"| );..}..|
|000003e0| 66 75 6e 63 74 69 6f 6e | 20 54 69 6d 65 72 28 29 |function| Timer()|
|000003f0| 0d 0a 7b 0d 0a 09 6c 6f | 63 61 6c 20 69 6e 74 20 |..{...lo|cal int |
|00000400| 69 2c 20 6a 3b 0d 0a 09 | 66 6f 72 28 20 69 3d 30 |i, j;...|for( i=0|
|00000410| 3b 20 69 3c 61 72 72 61 | 79 63 6f 75 6e 74 28 42 |; i<arra|ycount(B|
|00000420| 65 61 63 6f 6e 73 29 3b | 20 69 2b 2b 20 29 0d 0a |eacons);| i++ )..|
|00000430| 09 09 69 66 0d 0a 09 09 | 28 09 42 65 61 63 6f 6e |..if....|(.Beacon|
|00000440| 73 5b 69 5d 2e 41 64 64 | 72 2e 41 64 64 72 21 3d |s[i].Add|r.Addr!=|
|00000450| 30 0d 0a 09 09 26 26 09 | 4c 65 76 65 6c 2e 54 69 |0....&&.|Level.Ti|
|00000460| 6d 65 53 65 63 6f 6e 64 | 73 2d 42 65 61 63 6f 6e |meSecond|s-Beacon|
|00000470| 73 5b 69 5d 2e 54 69 6d | 65 3c 42 65 61 63 6f 6e |s[i].Tim|e<Beacon|
|00000480| 54 69 6d 65 6f 75 74 20 | 29 0d 0a 09 09 09 42 65 |Timeout |).....Be|
|00000490| 61 63 6f 6e 73 5b 6a 2b | 2b 5d 20 3d 20 42 65 61 |acons[j+|+] = Bea|
|000004a0| 63 6f 6e 73 5b 69 5d 3b | 0d 0a 09 66 6f 72 28 20 |cons[i];|...for( |
|000004b0| 6a 3d 6a 3b 20 6a 3c 61 | 72 72 61 79 63 6f 75 6e |j=j; j<a|rraycoun|
|000004c0| 74 28 42 65 61 63 6f 6e | 73 29 3b 20 6a 2b 2b 20 |t(Beacon|s); j++ |
|000004d0| 29 0d 0a 09 09 42 65 61 | 63 6f 6e 73 5b 6a 5d 2e |)....Bea|cons[j].|
|000004e0| 41 64 64 72 2e 41 64 64 | 72 3d 30 3b 0d 0a 7d 0d |Addr.Add|r=0;..}.|
|000004f0| 0a 65 76 65 6e 74 20 52 | 65 63 65 69 76 65 64 54 |.event R|eceivedT|
|00000500| 65 78 74 28 20 49 70 41 | 64 64 72 20 41 64 64 72 |ext( IpA|ddr Addr|
|00000510| 2c 20 73 74 72 69 6e 67 | 5b 32 34 30 5d 20 54 65 |, string|[240] Te|
|00000520| 78 74 20 29 0d 0a 7b 0d | 0a 09 6c 6f 63 61 6c 20 |xt )..{.|..local |
|00000530| 69 6e 74 20 69 2c 20 6e | 3b 0d 0a 09 0d 0a 09 6e |int i, n|;......n|
|00000540| 20 3d 20 6c 65 6e 28 42 | 65 61 63 6f 6e 50 72 6f | = len(B|eaconPro|
|00000550| 64 75 63 74 29 3b 0d 0a | 09 69 66 28 20 6c 65 66 |duct);..|.if( lef|
|00000560| 74 28 54 65 78 74 2c 6e | 29 3d 3d 42 65 61 63 6f |t(Text,n|)==Beaco|
|00000570| 6e 50 72 6f 64 75 63 74 | 20 29 0d 0a 09 7b 0d 0a |nProduct| )...{..|
|00000580| 09 09 54 65 78 74 20 3d | 20 6d 69 64 28 54 65 78 |..Text =| mid(Tex|
|00000590| 74 2c 6e 2b 31 29 3b 0d | 0a 09 09 66 6f 72 28 20 |t,n+1);.|...for( |
|000005a0| 69 3d 30 3b 20 69 3c 61 | 72 72 61 79 63 6f 75 6e |i=0; i<a|rraycoun|
|000005b0| 74 28 42 65 61 63 6f 6e | 73 29 3b 20 69 2b 2b 20 |t(Beacon|s); i++ |
|000005c0| 29 0d 0a 09 09 09 69 66 | 28 20 42 65 61 63 6f 6e |).....if|( Beacon|
|000005d0| 73 5b 69 5d 2e 41 64 64 | 72 3d 3d 41 64 64 72 20 |s[i].Add|r==Addr |
|000005e0| 29 0d 0a 09 09 09 09 62 | 72 65 61 6b 3b 0d 0a 09 |)......b|reak;...|
|000005f0| 09 69 66 28 20 69 3d 3d | 61 72 72 61 79 63 6f 75 |.if( i==|arraycou|
|00000600| 6e 74 28 42 65 61 63 6f | 6e 73 29 20 29 0d 0a 09 |nt(Beaco|ns) )...|
|00000610| 09 09 66 6f 72 28 20 69 | 3d 30 3b 20 69 3c 61 72 |..for( i|=0; i<ar|
|00000620| 72 61 79 63 6f 75 6e 74 | 28 42 65 61 63 6f 6e 73 |raycount|(Beacons|
|00000630| 29 3b 20 69 2b 2b 20 29 | 0d 0a 09 09 09 09 69 66 |); i++ )|......if|
|00000640| 28 20 42 65 61 63 6f 6e | 73 5b 69 5d 2e 41 64 64 |( Beacon|s[i].Add|
|00000650| 72 2e 41 64 64 72 3d 3d | 30 20 29 0d 0a 09 09 09 |r.Addr==|0 ).....|
|00000660| 09 09 62 72 65 61 6b 3b | 0d 0a 09 09 69 66 28 20 |..break;|....if( |
|00000670| 69 3d 3d 61 72 72 61 79 | 63 6f 75 6e 74 28 42 65 |i==array|count(Be|
|00000680| 61 63 6f 6e 73 29 20 29 | 0d 0a 09 09 09 72 65 74 |acons) )|.....ret|
|00000690| 75 72 6e 3b 0d 0a 09 09 | 42 65 61 63 6f 6e 73 5b |urn;....|Beacons[|
|000006a0| 69 5d 2e 41 64 64 72 20 | 3d 20 41 64 64 72 3b 0d |i].Addr |= Addr;.|
|000006b0| 0a 09 09 42 65 61 63 6f | 6e 73 5b 69 5d 2e 54 69 |...Beaco|ns[i].Ti|
|000006c0| 6d 65 20 3d 20 4c 65 76 | 65 6c 2e 54 69 6d 65 53 |me = Lev|el.TimeS|
|000006d0| 65 63 6f 6e 64 73 3b 0d | 0a 09 09 42 65 61 63 6f |econds;.|...Beaco|
|000006e0| 6e 73 5b 69 5d 2e 54 65 | 78 74 20 3d 20 54 65 78 |ns[i].Te|xt = Tex|
|000006f0| 74 3b 0d 0a 09 7d 0d 0a | 7d 0d 0a 00             |t;...}..|}...    |
+--------+-------------------------+-------------------------+--------+--------+